home *** CD-ROM | disk | FTP | other *** search
/ CD Fun House 1 / CD Fun House (Wayzata Technology).iso / •AdventureLand• / Adventures / SpaceEscape •••• / SpaceEscape ееее / card_29198.txt < prev    next >
Text File  |  1990-10-02  |  3KB  |  116 lines
  1. -- card: 29198 from stack: in
  2. -- bmap block id: 14978
  3. -- flags: 4000
  4. -- background id: 8902
  5. -- name: id guard
  6. ----- HyperTalk script -----
  7. on opencard
  8.   put "This is a very bored-looking guard." into field "info"
  9.   pass opencard
  10. end opencard
  11.  
  12.  
  13.  
  14. -- part 1 (button)
  15. -- low flags: 00
  16. -- high flags: A003
  17. -- rect: left=161 top=302 right=323 bottom=192
  18. -- title width / last selected line: 0
  19. -- icon id / first selected line: 0 / 0
  20. -- text alignment: 1
  21. -- font id: 0
  22. -- text size: 12
  23. -- style flags: 0
  24. -- line height: 16
  25. -- part name: OK
  26. ----- HyperTalk script -----
  27. on mouseUp
  28.   global filter
  29.   if filter is "yes" then
  30.     beep
  31.     exit mouseup
  32.   end if
  33.   global donteat
  34.   get bkgnd field "do what"
  35.   if the number of words in it > 1 then
  36.     beep 2
  37.     oneword
  38.     exit mouseup
  39.   end if
  40.   if it contains "examine" or it contains "look" then
  41.     send "opencard" to this card
  42.     exit mouseup
  43.   end if
  44.   if it contains "hit" or it contains "kick" or it contains "punch" or it contains "push" or it contains "attack" or it contains "kill" then
  45.     play "boing"
  46.     put "When you hit the Drool, he goes wild and hits you.  Very "& "hard.  To make a long story short, he kills you.≈∏"into field"info"
  47.     global filter
  48.     put "yes" into filter
  49.     global action
  50.     put "attack" into action
  51.     exit mouseup
  52.   end if
  53.   if it contains "eat" or it contains "consume" then
  54.     put "When you bite the Drool, he goes wild and hits you.  Very "& "hard.  To make a long story short, he kills you.≈∏"into field"info"
  55.     global filter
  56.     put "yes" into filter
  57.     global action
  58.     put "attack" into action
  59.     exit mouseup
  60.   end if
  61.   if it contains "talk" or it contains "speak" then
  62.     put "The Drool is not listening."into field"info"
  63.     exit mouseup
  64.   end if
  65.   if it contains "give" or it contains "offer"or it contains "show"then
  66.   ask "What would you like to show the Drool?"
  67.   if it contains "id" or it contains "card" then
  68.     global inventory
  69.     if inventory contains "id card" then
  70.       put "The guard salutes, opens the door, ushers you into the "& "next room, and closes the door behind you.≈∏" into field "Info"
  71.       global filter
  72.       put "yes" into filter
  73.       global action
  74.       put "yah" into action
  75.       exit mouseup
  76.     else
  77.       put "You don't have it." into field "info"
  78.       exit mouseup
  79.     end if
  80.   else
  81.     put "The guard is not interested in the "&it&"." into field "Info"
  82.     exit mouseup
  83.   end if
  84. end if
  85. if it is "" then
  86.   put "Speak up.  I can't hear you." into field "info"
  87.   exit mouseup
  88. end if
  89. idunno
  90. end mouseUp
  91.  
  92. on cont
  93.   global filter
  94.   if filter is "yes" then
  95.     global action
  96.     if action is "attack" then
  97.       go to card "death"
  98.       put "" into filter
  99.     end if
  100.     if action is "yah" then
  101.       go to card "foyer"
  102.       global filter
  103.       put "" into filter
  104.     end if
  105.   end if
  106. end cont
  107.  
  108.  
  109.  
  110. -- part contents for background part 2
  111. ----- text -----
  112. What would you like to do with the Art?
  113.  
  114. -- part contents for background part 7
  115. ----- text -----
  116. Guard